perm filename BLOAT.POX[POX,WD] blob
sn#358976 filedate 1978-05-28 generic text, type T, neo UTF8
00100 \|\\; Define Brick Character
00200 \M0FIX25;\; fixed font
00300 \⊂'000040;\; VERREM - REM's syntax form macros with args definitions
00400 \8EVAL(STRING)[⊗STRING⊗]\;
00500 \8BAR(CHAR)[\N add 2 ten word blocks of bloat
00600 \ ;\←=0;\N zero ac prevents
00700 \ ;\?EVAL(⊗CHAR⊗);]\N execution of eval macro
00800 \∞FOO[\N macro to produce unnecessary bloat
00900 \ ;\-=1;\N decrement count
01000 \ ;\P\N
01100 \ ;\!BAR(a);\N
01200 \ ;\p]\;
01300 \←=0;\; *** bloat is linear in this parameter
01400 \IFOO;